division euclidienne pour Sharp PC1500 ( pas de programme )
tir du magazine Hebdogiciel N29

	Ce programme excute  votre place la division euclidienne de deux polynomes  coefficients entiers, positifs ou ngatifs. Les coefficients du reste et du quotient sont donnes sans erreur d'arrondi. Il marche en mmoire de base et l'imprimante n'est pas obligatoire : il suffit de changer les LPRINT en PRINT et de supprimer les COLOR.
	Enfin, le polynome U dsigne le dividende;le polynome V, le diviseur. Donc, le degr de U doit tre suprieur ou gal  celui de V. Sinon, une erreur de dimension se produira en ligne 50.

Programme :
10 REM "division des polynomes  coefficients entiers"
30 LPRINT "degr de u:m":LPRINT "degr de v:n"
40 INPUT "m=";M:INPUT "n=";N
45 LPRINT "m=";M:LPRINT "n=";N
50 DIM U(M),V(N),Q(M-N)
60 LPRINT "les coefficients de u sont,":LPRINT "dans l'ordre des"
65 LPRINT "puissances croiss--antes,u(i)"
70 FOR I=0 TO M
75 COLOR 2
80 INPUT "u(i)=";U(I):LPRINT "u(";I;")=";U(I)
85 WAIT 50
90 PRINT "tapez o si vous maintenez":PRINT "le coefficient":PEINT "tapez n, sinon":INPUT A$
95 IF A$="n" THEN 80
100 NEXT I
125 COLOR 0
130 LPRINT "les coefficients de v sont,":LPRINT "dans l'ordre des"
135 LPRINT "puissances croiss--antes,v(j)"
140 FOR J=0 TO N
145 COLOR 2
150 INPUT "v(j)=";V(J):LPRINT "v(";J;")=";V(J)
155 WAIT 50
160 PRINT "tapez o si vous maintenez":PRINT "le coefficient":PRINT "tapez n,sinon":INPUT A$
165 IF A$="n" THEN 150
170 NEXT J
180 LPRINT:LPRINT:LPRINT:LPRINT
185 COLOR 0
190 LPRINT "polynome u"
195 COLOR 1
200 FOR I=0 TO M:LPRINT "+";U(I);"x^";I;:NEXT I
210 LPRINT
215 COLOR 0
220 LPRINT "polynome v"
225 COLOR 1
230 FOR J=0 TO N:LPRINT "+";V(J);"x^";J;:NEXT J
240 FOR I=0 TO M
250 U(I)=U(I)*(V(N)^(M-N+I))
260 NEXT I
270 FOR L=0 TO M-N
280 Q(M-N-L)=U(M-L)/(V(N)
290 FOR K=L TO N+L
300 U(M-K)=U(M-K)-V(N+L-K)*Q(M-N-L)
310 NEXT K
320 NEXT L
330 LPRINT
335 COLOR 0
340 LPRINT "le reste est:"
350 FOR I=0 TO N-1
355 COLOR 1
360 LPRINT "+(";U(I);"/";O;")";"X^";I;
370 NEXT I
380 LPRINT
385 COLOR 0
390 LPRINT "le quotient est:"
400 FOR L=M-N TO 0 STEP -1
405 COLOR 1
410 LPRINT "+(";Q(M-N-L);"/";D;")";"x^";M-N-L;
420 NEXT L
425 LF 5